#!/usr/bin/perl

$HOME_DIR = "/home/one-tenth";
$HOME_DIR = $ENV{'CHOPSET_HOME'} if($ENV{'CHOPSET_HOME'} ne '');

require "$HOME_DIR/config.ph";

@targetNodes = @ARGV;
@nodes = &getNodeList();

foreach $targetNode (@targetNodes){
	foreach $node (@nodes){
		if($node eq $targetNode){
			push(@targets, $node);
		}
	}
}

&cameBackNodes(@targets);
print("cameback node: @targets\n");
